home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 1995 #5 & #6 / Amiga Plus CD - 1995 - No. 5 and 6.iso / pd / tools / reqtools / rexxreqtools / examples / fontreq.rexx < prev    next >
OS/2 REXX Batch file  |  1995-08-25  |  667b  |  21 lines
  1. /* FontReq.rexx
  2.  * Demonstrates the fontrequester
  3.  *
  4.  * NOTE: `,' is a continuation character for statements that must be entered
  5.  *       on several source lines!!
  6.  */
  7.  
  8. call addlib("rexxreqtools.library", 0, -30, 0)
  9.  
  10. call rtfontrequest('Pick font',,'rtfo_flags = freqf_style',font)
  11. if font then
  12.   do
  13.     text = 'You picked' font.name 'size' font.height
  14.     if font.bold then text = text || '0A'x || 'You selected bold'
  15.     if font.italic then text = text || '0A'x || 'You selected italic'
  16.     if font.underlined then text = text || '0A'x || 'You selected underlined'
  17.     call rtezrequest(text,'Right')
  18.   end
  19. else
  20.   call rtezrequest('You picked no font',"I'm sorry")
  21.